object mapagoogle_frm: Tmapagoogle_frm
  Left = 216
  Top = 70
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Mapa de Localiza'#231#227'o do Domic'#237'lio - Google Mapas'
  ClientHeight = 587
  ClientWidth = 893
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  FormStyle = fsStayOnTop
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF009999
    99999999999999999999999999999FFFFFFFFFFFFF88888888888FFFFFF997FF
    FFFFFFFF888888888888888FFFF9977FFFFFFFF8444C444888888888FFF99777
    FFFFFF4444444444488888888FF997777FFF44444C4C4C4C4C48888888F99777
    77F44444443444444444888888F99777774C444C433C4C4C4C4C488888899777
    74444444C334C444C444C48888899777744C4C4C433C4C4C4C4C4C8888899777
    444444C43334CCC4C4C4C44888899777444C4C43333C4C4C4C4C4C3888899774
    4444C4433333CCCCC4CCC433888997744C4C4C4333333C4C4C4C4C3388899774
    4444C43333333CCCCCCCC43388899774444C4C333333CC4CCC4C4C3388899774
    4444C433333CCCCCCCC33333888997744C4C4C334C4C4CCCCCC3333388899774
    44444433CCCC3CCCCCC3333388F99777444C4C433C433C4CCC4C333888F99777
    4444343333333CCCCCCCC4C88FF99777744C333333333C4C4C433C88FFF99777
    7444333333333CCCCCC3348FFFF99777774C333333333C4C3C433FFFFFF99777
    7774333333C333CC3433FFFFFFF9977777774333334C333C4C377FFFFFF99777
    77777744433444C4477777FFFFF99777777777774C4C4C477777777FFFF99777
    777777777777777777777777FFF997777777777777777777777777777FF99777
    77777777777777777777777777F9999999999999999999999999999999990000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000}
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object WebBrowser1: TWebBrowser
    Left = 0
    Top = 0
    Width = 893
    Height = 587
    Align = alClient
    TabOrder = 0
    ControlData = {
      4C0000004B5C0000AB3C00000000000000000000000000000000000000000000
      000000004C000000000000000000000001000000E0D057007335CF11AE690800
      2B2E126208000000000000004C0000000114020000000000C000000000000046
      8000000000000000000000000000000000000000000000000000000000000000
      00000000000000000100000000000000000000000000000000000000}
  end
  object GMMap1: TGMMap
    Language = PortuguesBR
    Active = False
    IntervalEvents = 0
    Precision = 0
    RequiredProp.MapType = mtROADMAP
    RequiredProp.Zoom = 8
    NonVisualProp.Options = [Draggable, NoClear, ScrollWheel]
    NonVisualProp.MaxZoom = 0
    NonVisualProp.MinZoom = 0
    NonVisualProp.MapMaker = True
    Layers.Panoramio.Filtered = False
    Layers.Panoramio.Clickable = False
    Layers.Panoramio.Show = False
    Layers.Traffic.Show = False
    Layers.Transit.Show = False
    Layers.Bicycling.Show = False
    Layers.Weather.Show = True
    Layers.Weather.Clickable = True
    Layers.Weather.LabelColor = lcBLACK
    Layers.Weather.SuppressInfoWindows = False
    Layers.Weather.TemperatureUnit = tuCELSIUS
    Layers.Weather.WindSpeedUnit = wsKILOMETERS_PER_HOUR
    StreetView.Visible = False
    AfterPageLoaded = GMMap1AfterPageLoaded
    VisualProp.MapTypeCtrl.MapTypeIds = [mtROADMAP, mtSATELLITE]
    VisualProp.MapTypeCtrl.Position = cpTOP_RIGHT
    VisualProp.MapTypeCtrl.Style = mtcDEFAULT
    VisualProp.MapTypeCtrl.Show = True
    VisualProp.OverviewMapCtrl.Opened = True
    VisualProp.OverviewMapCtrl.Show = True
    VisualProp.PanCtrl.Position = cpTOP_LEFT
    VisualProp.PanCtrl.Show = True
    VisualProp.RotateCtrl.Position = cpTOP_LEFT
    VisualProp.RotateCtrl.Show = True
    VisualProp.ScaleCtrl.Position = cpBOTTOM_LEFT
    VisualProp.ScaleCtrl.Style = scDEFAULT
    VisualProp.ScaleCtrl.Show = True
    VisualProp.StreetViewCtrl.Position = cpTOP_LEFT
    VisualProp.StreetViewCtrl.Show = False
    VisualProp.ZoomCtrl.Position = cpTOP_LEFT
    VisualProp.ZoomCtrl.Style = zcDEFAULT
    VisualProp.ZoomCtrl.Show = True
    VisualProp.BGColor = 15659247
    WebBrowser = WebBrowser1
    Left = 428
    Top = 405
  end
  object GMGeoCode1: TGMGeoCode
    Language = PortuguesBR
    Map = GMMap1
    Marker = GMMarker1
    Region = rBRAZIL
    LangCode = lcPORTUGUESE_BRAZIL
    PaintMarkerFound = True
    Left = 460
    Top = 405
  end
  object GMMarker1: TGMMarker
    Language = PortuguesBR
    Map = GMMap1
    AutoUpdate = True
    VisualObjects = <>
    Left = 492
    Top = 405
  end
  object IBQGoogleMapas: TIBQuery
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterOpen = IBQGoogleMapasAfterOpen
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'SELECT'
      
        '   A.ENDERECO||'#39', '#39'||CAST(A.NUMERO AS VARCHAR(5))||'#39', '#39'||A.BAIRR' +
        'O||'#39', '#39'||B.CIDADE||'#39', '#39'||B.ESTADO AS ENDERECO'
      'FROM'
      '   DOMICILIO A, PARAMETROS B'
      'WHERE'
      '   A.IDDOMICILIO = :DOMICILIO')
    Left = 524
    Top = 405
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'DOMICILIO'
        ParamType = ptUnknown
      end>
    object IBQGoogleMapasENDERECO: TIBStringField
      FieldName = 'ENDERECO'
      ReadOnly = True
      Size = 145
    end
  end
  object dsGoogleMapas: TDataSource
    AutoEdit = False
    DataSet = IBQGoogleMapas
    Left = 524
    Top = 437
  end
end
